home *** CD-ROM | disk | FTP | other *** search
-
- /*
- * DYNAMIC.C
- *
- * (c)Copyright 1992-1997 Obvious Implementations Corp. Redistribution and
- * use is allowed under the terms of the DICE-LICENSE FILE,
- * DICE-LICENSE.TXT.
- *
- * dynamic function library support
- */
-
- #include <exec/types.h>
- #include <clib/dos_protos.h>
- #include <dynamic.h> /* from dinclude:pd/ */
- #include <stdio.h>
-
- __regargs void *
- _GetHyperVar(varName)
- const char *varName;
- {
- void *ptr = GetHyperSymbolTags(varName, TAG_END);
- if (ptr == NULL)
- fhprintf(Output(), "run time variable error: %s\n", varName);
- return(ptr);
- }
-
- __regargs void *
- _GetHyperFunc(funcName, funcType)
- const char *funcName;
- const char *funcType;
- {
- void *ptr = GetHyperSymbolTags(funcName, DT_TYPE, funcType, TAG_END);
- if (ptr == NULL)
- fhprintf(Output(), "run time function error: %s\n", funcName);
- return(ptr);
- }
-
- __regargs
- _RelsHyperVar(ptr)
- void *ptr;
- {
- RelsHyperSymbol(ptr, NULL);
- }
-
- __regargs
- _RelsHyperFunc(ptr)
- void *ptr;
- {
- RelsHyperSymbol(ptr, NULL);
- }
-
-